8 POKE52,56:POKE56,56:CLR
10 DV=PEEK(186):IFDV<8THENDV=8
12 POKE53281,0:POKE53280,0:PRINT"[147]":GOSUB60000
15 SYS57812"CATMEIS/CM",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
20 DD=DV:FORI=8TO16:OPEN2,I,2:CLOSE2
22 IFI=DVTHEN26
24 IFST=0THENDD=I:I=16
26 NEXT
100 CAT=49152:CM=51968
110 FORI=1TO4:READM$(I):NEXT
112 DATA "    [214]IEW A [198]ONT     "
113 DATA "   [195]ONVERT A [198]ONT   "
114 DATA "  [195]ONFIGURE [196]RIVES  "
115 DATA " [210]ETURN TO [204][207][193][196][211][212][193][210] "
116 PRINT"[147]"
118 SYSCA+15,5,35,2,18,105,8
119 SYSCA+15,8,32,4,16,32,14
120 PRINTTAB(9)"[159][207] [195] [208]   [198] [207] [206] [212] [201] [218] [197] [210]"
130 POKE214,7:PRINT"[154]":FORI=1TO4:PRINTTAB(10)M$(I):PRINT:NEXT
150 M=1
151 POKE214,20:PRINT:PRINT"      [211]OURCE ="DVTAB(20)"[196]ESTINATION ="DD
152 POKE214,5+M*2:PRINT:PRINTTAB(10)""M$(M)"[145]"
154 GETA$:IFA$<>"[145]"ANDA$<>""ANDA$<>CHR$(13)THEN154
156 IFA$=CHR$(13)THEN180
158 PRINTTAB(10)"[154]"M$(M)
160 IFA$="[145]"THENM=M-1:IFM<1THENM=4
162 IFA$=""THENM=M+1:IFM>4THENM=1
164 GOTO152
180 ONMGOSUB200,300,400,500
182 GOTO151
200 SYSCA+18,80
202 SYSCA,"$:*=P",DV,53248,18,3,16,15,1
203 IFF$=""THENSYSCA+21,80:RETURN
205 SYS57812F$,DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
208 PRINT"[147]"
210 SYSCA+15,2,39,5,15,58,4
212 SYSCA+15,4,37,7,13,32,1
220 POKE53272,31
230 POKE214,7:PRINT:PRINTTAB(5)"[158]@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_"
232 PRINTTAB(5)" !"CHR$(34)"#$%&'()*+,-./0123456789:;<=>?"
234 PRINTTAB(5)"[192][193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]"
240 POKE214,18:PRINT:PRINT"    [154][208]RESS A KEY[154] TO RETURN TO THE [205]ENU"
250 GETA$:IFA$=""THEN250
255 PRINT"[147]":POKE53272,22
260 SYSCA+21,80:RETURN
300 SYSCA+18,80
302 SYSCA,"$:*=P",DV,53248,18,3,16,15,1
303 IFF$=""THENSYSCA+21,80:RETURN
305 SYS57812F$,DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
310 SYSCM,14336,18496,728
320 FI$=LEFT$(F$+"                ",12)+"FONT"
330 SYS57812FI$,DD:POKE193,64:POKE194,72:POKE174,31:POKE175,75:SYS62954
340 SYSCA+21,80:RETURN
400 SYSCA+18,80
410 SYSCA+15,9,31,13,21,102,3
412 SYSCA+15,11,29,15,19,32,3
420 POKE214,15:PRINT:PRINTTAB(13)"[154][211]OURCE      ="DV
430 PRINTTAB(13)"[154][196]ESTINATION ="DD
435 POKE214,22:PRINT:PRINT" [211][154] - [195]YCLE [211]OURCE [196][154] - [195]YCLE [196]ESTINATION
437 [153]"         CONT(null)RESS (null)VAL(null)(null)(null)(null)CONT WHEN DONE"
440 [161]A$:[139]A$[179][177][199](13)[175]A$[179][177]"S"[175]A$[179][177]"D"[167]440
450 [139]A$[178][199](13)[167][158]CA[170]21,80:[142]
460 [139]A$[178]"D"[167]470
462 DV[178]DV[170]1:[139]DV[177]16[167]DV[178]8
464 [159]2,DV,2:[160]2:[139]ST[178][171]128[167]462
466 [137]490
470 DD[178]DD[170]1:[139]DD[177]16[167]DD[178]8
480 [159]2,DD,2:[160]2:[139]ST[178][171]128[167]470
490 [151]214,15:[153]:[153][163]26)"   CMDCMDCMD"DV
492 [153][163]26)"   CMDCMDCMD"DD
494 [137]440
500 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
510 [139]ER[179][177]63[167][151]56,160:[156]:[153]"LOAD":[128]
520 [153]"LOADSTOPLOAD"[199](34)"HELLO CONNECT"[199](34)",8"
530 [153]"RUN"
540 [151]631,13:[151]632,13:[151]198,2:[128]
10000 [159]15,8,15,"S0:BYTES 97":[160]15:[148]"BYTES 97",8:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]11:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"(null) LEN (null)   ASC (null) (null) (null) RIGHT$ (null) VAL (null)":Z$(1)[178]"BY ASCENDER (null)UCKER
60040 Z$(2)="[214]1.0 ([195]) 1992 BY [211]OFTDISK, [201]NC."+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF (null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$.  RIGHT$T IS NOT"
60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)[178]"(null)EPORT ILLEGAL DISTRIBUTION OF":Z$(7)[178]"THIS PROGRAM BY CALLING"
60090 Z$(8)[178]"1-800-831-2694 OR 1-318-221-8718.":[151]214,12:[153]
60100 [129]I[178]0[164]8:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]